home *** CD-ROM | disk | FTP | other *** search
/ PD ROM 1 / PD ROM Volume I - Macintosh Software from BMUG (1988).iso / Stacks / Hyper Business / Check Stuff / HyperCheck / background_5134.txt < prev    next >
Encoding:
Text File  |  1988-04-19  |  7.1 KB  |  348 lines
  1. -- background: 5134 from stack: in
  2. -- bmap block id: 5036
  3. -- flags: 0000
  4. -- background id: 0
  5. -- name: CHECK
  6. ----- HyperTalk script -----
  7. on idle
  8.   put the time into field "TIME"
  9.   put the long date into field "DATE"
  10.   global NAME
  11.   put NAME into field "cNAME"
  12.   global ACC
  13.   put ACC into field "ACC NO"
  14.   pass idle
  15. end idle
  16.  
  17.  
  18.  
  19. -- part 1 (field)
  20. -- low flags: 01
  21. -- high flags: 0000
  22. -- rect: left=349 top=37 right=56 bottom=507
  23. -- title width / last selected line: 0
  24. -- icon id / first selected line: 0 / 0
  25. -- text alignment: 1
  26. -- font id: 16
  27. -- text size: 12
  28. -- style flags: 0
  29. -- line height: 16
  30. -- part name: DATE
  31.  
  32.  
  33. -- part 2 (field)
  34. -- low flags: 01
  35. -- high flags: 0000
  36. -- rect: left=404 top=57 right=75 bottom=465
  37. -- title width / last selected line: 0
  38. -- icon id / first selected line: 0 / 0
  39. -- text alignment: 1
  40. -- font id: 16
  41. -- text size: 12
  42. -- style flags: 0
  43. -- line height: 16
  44. -- part name: TIME
  45.  
  46.  
  47. -- part 3 (field)
  48. -- low flags: 00
  49. -- high flags: 0000
  50. -- rect: left=421 top=120 right=137 bottom=494
  51. -- title width / last selected line: 0
  52. -- icon id / first selected line: 0 / 0
  53. -- text alignment: 0
  54. -- font id: 16
  55. -- text size: 12
  56. -- style flags: 0
  57. -- line height: 16
  58. -- part name: Ch Num
  59.  
  60.  
  61. -- part 4 (field)
  62. -- low flags: 00
  63. -- high flags: 0001
  64. -- rect: left=229 top=152 right=169 bottom=376
  65. -- title width / last selected line: 0
  66. -- icon id / first selected line: 0 / 0
  67. -- text alignment: 0
  68. -- font id: 16
  69. -- text size: 12
  70. -- style flags: 0
  71. -- line height: 16
  72. -- part name: CH DATE
  73.  
  74.  
  75. -- part 5 (field)
  76. -- low flags: 01
  77. -- high flags: 0000
  78. -- rect: left=18 top=120 right=172 bottom=178
  79. -- title width / last selected line: 0
  80. -- icon id / first selected line: 0 / 0
  81. -- text alignment: 0
  82. -- font id: 16
  83. -- text size: 12
  84. -- style flags: 0
  85. -- line height: 16
  86. -- part name: cName
  87.  
  88.  
  89. -- part 6 (field)
  90. -- low flags: 00
  91. -- high flags: 0000
  92. -- rect: left=74 top=183 right=202 bottom=475
  93. -- title width / last selected line: 0
  94. -- icon id / first selected line: 0 / 0
  95. -- text alignment: 0
  96. -- font id: 16
  97. -- text size: 12
  98. -- style flags: 0
  99. -- line height: 16
  100. -- part name: 
  101.  
  102.  
  103. -- part 7 (field)
  104. -- low flags: 00
  105. -- high flags: 0000
  106. -- rect: left=101 top=205 right=224 bottom=240
  107. -- title width / last selected line: 0
  108. -- icon id / first selected line: 0 / 0
  109. -- text alignment: 0
  110. -- font id: 16
  111. -- text size: 12
  112. -- style flags: 0
  113. -- line height: 16
  114. -- part name: CH AMOUNT
  115.  
  116.  
  117. -- part 8 (field)
  118. -- low flags: 00
  119. -- high flags: 0000
  120. -- rect: left=71 top=232 right=267 bottom=497
  121. -- title width / last selected line: 0
  122. -- icon id / first selected line: 0 / 0
  123. -- text alignment: 0
  124. -- font id: 16
  125. -- text size: 12
  126. -- style flags: 0
  127. -- line height: 16
  128. -- part name: 
  129.  
  130.  
  131. -- part 9 (button)
  132. -- low flags: 00
  133. -- high flags: 8003
  134. -- rect: left=400 top=149 right=171 bottom=446
  135. -- title width / last selected line: 0
  136. -- icon id / first selected line: 0 / 0
  137. -- text alignment: 1
  138. -- font id: 0
  139. -- text size: 12
  140. -- style flags: 0
  141. -- line height: 16
  142. -- part name: TODAY
  143. ----- HyperTalk script -----
  144. on mouseUp
  145.   put the abbrev date into field "CH DATE"
  146. end mouseUp
  147.  
  148.  
  149.  
  150. -- part 10 (button)
  151. -- low flags: 00
  152. -- high flags: 0000
  153. -- rect: left=9 top=309 right=334 bottom=38
  154. -- title width / last selected line: 0
  155. -- icon id / first selected line: 17779 / 17779
  156. -- text alignment: 1
  157. -- font id: 0
  158. -- text size: 12
  159. -- style flags: 0
  160. -- line height: 16
  161. -- part name: 
  162. ----- HyperTalk script -----
  163. on mouseUp
  164.   visual effect checkerboard
  165.   GO TO PREVIOUS CARD
  166. end mouseUp
  167.  
  168.  
  169.  
  170. -- part 11 (button)
  171. -- low flags: 00
  172. -- high flags: 8003
  173. -- rect: left=44 top=310 right=332 bottom=144
  174. -- title width / last selected line: 0
  175. -- icon id / first selected line: 0 / 0
  176. -- text alignment: 1
  177. -- font id: 0
  178. -- text size: 12
  179. -- style flags: 0
  180. -- line height: 16
  181. -- part name: ADD CHECK
  182. ----- HyperTalk script -----
  183. on mouseUp
  184.   set lockScreen to true
  185.   go to last card of background "CHECK"
  186.   get background field "CH NUM"
  187.   set lockScreen to false
  188.   doMenu "New Card"
  189.   put it + 1 into background field "CH NUM"
  190. end mouseUp
  191.  
  192.  
  193.  
  194. -- part 12 (button)
  195. -- low flags: 00
  196. -- high flags: 8003
  197. -- rect: left=149 top=310 right=332 bottom=249
  198. -- title width / last selected line: 0
  199. -- icon id / first selected line: 0 / 0
  200. -- text alignment: 1
  201. -- font id: 0
  202. -- text size: 12
  203. -- style flags: 0
  204. -- line height: 16
  205. -- part name: ADD DEPOSIT
  206. ----- HyperTalk script -----
  207. on mouseUp
  208.   set lockScreen to true
  209.   go to last card of background "DEPOSIT"
  210.   get background field "DP NUM"
  211.   set lockScreen to false
  212.   doMenu "New Card"
  213.   put it + 1 into background field "DP NUM"
  214. end mouseUp
  215.  
  216.  
  217.  
  218. -- part 13 (button)
  219. -- low flags: 00
  220. -- high flags: 8003
  221. -- rect: left=254 top=310 right=332 bottom=364
  222. -- title width / last selected line: 0
  223. -- icon id / first selected line: 0 / 0
  224. -- text alignment: 1
  225. -- font id: 0
  226. -- text size: 12
  227. -- style flags: 0
  228. -- line height: 16
  229. -- part name: SERVICE CHARGE
  230. ----- HyperTalk script -----
  231. on mouseUp
  232.   set lockScreen to true
  233.   go to last card of background "SER CHARGE"
  234.   get background field "SC NUM"
  235.   set lockScreen to false
  236.   doMenu "New Card"
  237.   put it + 1 into background field "SC NUM"
  238. end mouseUp
  239.  
  240.  
  241.  
  242. -- part 14 (button)
  243. -- low flags: 00
  244. -- high flags: 8003
  245. -- rect: left=369 top=310 right=332 bottom=469
  246. -- title width / last selected line: 0
  247. -- icon id / first selected line: 0 / 0
  248. -- text alignment: 1
  249. -- font id: 0
  250. -- text size: 12
  251. -- style flags: 0
  252. -- line height: 16
  253. -- part name: BALANCE SHEET
  254. ----- HyperTalk script -----
  255. on mouseUp
  256.   visual dissolve
  257.   go to card "balance"
  258. end mouseUp
  259.  
  260.  
  261.  
  262. -- part 15 (button)
  263. -- low flags: 00
  264. -- high flags: 0000
  265. -- rect: left=474 top=309 right=334 bottom=503
  266. -- title width / last selected line: 0
  267. -- icon id / first selected line: 8419 / 8419
  268. -- text alignment: 1
  269. -- font id: 0
  270. -- text size: 12
  271. -- style flags: 0
  272. -- line height: 16
  273. -- part name: 
  274. ----- HyperTalk script -----
  275. on mouseUp
  276.   visual effect checkerboard
  277.   GO TO NEXT CARD
  278. end mouseUp
  279.  
  280.  
  281.  
  282. -- part 16 (button)
  283. -- low flags: 00
  284. -- high flags: 8003
  285. -- rect: left=45 top=274 right=296 bottom=145
  286. -- title width / last selected line: 0
  287. -- icon id / first selected line: 0 / 0
  288. -- text alignment: 1
  289. -- font id: 0
  290. -- text size: 12
  291. -- style flags: 0
  292. -- line height: 16
  293. -- part name: Cleared Bank
  294. ----- HyperTalk script -----
  295. on mouseUp
  296.   if field "B" is " "
  297.   then put X into field "B"
  298. else put " " into field "B"
  299. end mouseUp
  300.  
  301.  
  302.  
  303. -- part 18 (button)
  304. -- low flags: 00
  305. -- high flags: 8003
  306. -- rect: left=333 top=74 right=96 bottom=393
  307. -- title width / last selected line: 0
  308. -- icon id / first selected line: 0 / 0
  309. -- text alignment: 1
  310. -- font id: 0
  311. -- text size: 12
  312. -- style flags: 0
  313. -- line height: 16
  314. -- part name: TAB KEY
  315. ----- HyperTalk script -----
  316. on mouseUp
  317.   TabKey
  318. end mouseUp
  319.  
  320.  
  321.  
  322. -- part 19 (field)
  323. -- low flags: 01
  324. -- high flags: 0000
  325. -- rect: left=188 top=120 right=140 bottom=351
  326. -- title width / last selected line: 0
  327. -- icon id / first selected line: 0 / 0
  328. -- text alignment: 0
  329. -- font id: 16
  330. -- text size: 12
  331. -- style flags: 0
  332. -- line height: 16
  333. -- part name: ACC NO
  334.  
  335.  
  336. -- part 20 (field)
  337. -- low flags: 01
  338. -- high flags: 0002
  339. -- rect: left=24 top=277 right=291 bottom=39
  340. -- title width / last selected line: 0
  341. -- icon id / first selected line: 0 / 0
  342. -- text alignment: 0
  343. -- font id: 16
  344. -- text size: 12
  345. -- style flags: 0
  346. -- line height: 14
  347. -- part name: B
  348.